﻿Imports DTO
Imports DAO

Public Class DocGiaBUS
    Public Function LayThongTinDocGiaBangMaDocGia(ByVal maDocGia As Integer) As DocGiaDTO
        Dim dao As New DocGiaDAO
        Return dao.LayThongTinDocGiaBangMaDocGia(maDocGia)
    End Function
    Public Function DocFileExcel(ByVal sql As String, ByVal path As String) As DataSet
        Dim dao As New DocGiaDAO()
        Return dao.DocFileExcel(sql, path)
    End Function

    Public Function LuuExcelvaoCSDL(ByVal dt As DataTable) As Integer
        Dim dao As New DocGiaDAO()
        Return dao.LuuExcelvaoCSDL(dt)
    End Function



    Public Function LayDSDocGiaTable() As DataTable
        Dim dao As New DocGiaDAO()
        Return dao.LayDSDocGiaTable()
    End Function



    Public Function TimKiem(ByVal hsCrt As DocGiaCRT) As DataTable
        Dim dao As New DocGiaDAO()
        Return dao.TimKiem(hsCrt)
    End Function

    Public Function LayDSDocGia() As List(Of DocGiaDTO)
        Dim dao As New DocGiaDAO()
        Return dao.LayDSDocGia()
    End Function

    Public Function ThemDocGIa(ByVal sql As String) As Integer
        Dim dao As New DocGiaDAO()
        Return dao.ThemDocGIa(sql)
    End Function

    Public Function CapNhatDocGia(ByVal sql As String) As Integer
        Dim dao As New DocGiaDAO()
        Return dao.CapNhatDocGia(sql)
    End Function

    Public Function LaySoTienNo(ByVal MaDG As Integer) As Integer
        Dim dao As New DocGiaDAO()
        Return dao.LaySoTienNo(MaDG)
    End Function

    Public Function ThemPhieuThuTienPhat(ByVal sql As String) As Integer
        Dim dao As New DocGiaDAO()
        Return dao.ThemPhieuThuTienPhat(sql)
    End Function

End Class
